home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Forever 2
/
Atari Forever 2.zip
/
Atari Forever 2.iso
/
serie_v
/
v_137
/
copy.st
< prev
next >
Wrap
Text File
|
1984-05-01
|
436b
|
33 lines
Class Main
| i j k l |
[
main
i <- Test new.
i set: 17.
j <- Test new.
j set: i.
k <- j deepCopy.
l <- j shallowCopy.
i set: 12.
k print.
l print.
i <- Test new.
i set: 17.
j <- #(2).
j at: 1 put: i.
k <- j deepCopy.
l <- j shallowCopy.
i set: 12.
k print.
l print.
]
Class Test
| var |
[
printString
^ 'test value ', var printString
|
set: aVal
var <- aVal
]